COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		title clock
C00003 ENDMK
C⊗;
	title clock

a←1
b←2
p←17
pdlen←10

begin:	calli
loop:	move p,[iowd pdlen,pdlist]
	calli a,22
	idivi a,=3600
	idivi a,=60
	push p,b
	pushj p, decout
	ttyuuo 3,[asciz/:/]
	pop p,a
	caige a,=10
	ttyuuo 3,[asciz/0/]
	pushj p, decout
	movei a,=60
	calli a,31
	ttyuuo 3, [asciz/
/]
	jrst loop
decout:	idivi a,=10
	push p,b
	skipe a
	pushj p,decout
	pop p,b
	addi b, "0"
	ttyuuo 1,b
	popj p,
pdlist:	block pdlen
	end begin